home *** CD-ROM | disk | FTP | other *** search
/ SuperHack / SuperHack CD.bin / CODING / WINDOWS / EZNET.ZIP / DEMO.ZIP / COMMENTS.FRM (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1996-11-05  |  5.6 KB  |  121 lines

  1. VERSION 4.00
  2. Begin VB.Form frmComments 
  3.    Appearance      =   0  'Flat
  4.    BackColor       =   &H00C0C0C0&
  5.    BorderStyle     =   3  'Fixed Dialog
  6.    Caption         =   "Comments"
  7.    ClientHeight    =   3750
  8.    ClientLeft      =   1095
  9.    ClientTop       =   1485
  10.    ClientWidth     =   6990
  11.    BeginProperty Font 
  12.       name            =   "MS Sans Serif"
  13.       charset         =   0
  14.       weight          =   700
  15.       size            =   8.25
  16.       underline       =   0   'False
  17.       italic          =   0   'False
  18.       strikethrough   =   0   'False
  19.    EndProperty
  20.    ForeColor       =   &H80000008&
  21.    Height          =   4155
  22.    Left            =   1035
  23.    LinkTopic       =   "Form5"
  24.    MaxButton       =   0   'False
  25.    MinButton       =   0   'False
  26.    ScaleHeight     =   3750
  27.    ScaleWidth      =   6990
  28.    Top             =   1140
  29.    Width           =   7110
  30.    Begin VB.CommandButton Command1 
  31.       Appearance      =   0  'Flat
  32.       BackColor       =   &H80000005&
  33.       Caption         =   "Ok"
  34.       Default         =   -1  'True
  35.       Height          =   375
  36.       Left            =   5760
  37.       TabIndex        =   2
  38.       Top             =   240
  39.       Width           =   1035
  40.    End
  41.    Begin VB.TextBox Text1 
  42.       Appearance      =   0  'Flat
  43.       BeginProperty Font 
  44.          name            =   "MS Sans Serif"
  45.          charset         =   0
  46.          weight          =   400
  47.          size            =   9.75
  48.          underline       =   0   'False
  49.          italic          =   0   'False
  50.          strikethrough   =   0   'False
  51.       EndProperty
  52.       Height          =   2865
  53.       Left            =   210
  54.       MultiLine       =   -1  'True
  55.       ScrollBars      =   2  'Vertical
  56.       TabIndex        =   0
  57.       Text            =   "COMMENTS.frx":0000
  58.       Top             =   720
  59.       Width           =   5295
  60.    End
  61.    Begin VB.Label Label1 
  62.       Appearance      =   0  'Flat
  63.       BackColor       =   &H00C0C0C0&
  64.       Caption         =   "Label1"
  65.       BeginProperty Font 
  66.          name            =   "Times New Roman"
  67.          charset         =   0
  68.          weight          =   700
  69.          size            =   15
  70.          underline       =   0   'False
  71.          italic          =   0   'False
  72.          strikethrough   =   0   'False
  73.       EndProperty
  74.       ForeColor       =   &H00008080&
  75.       Height          =   375
  76.       Left            =   210
  77.       TabIndex        =   1
  78.       Top             =   210
  79.       Width           =   5295
  80.    End
  81. Attribute VB_Name = "frmComments"
  82. Attribute VB_Creatable = False
  83. Attribute VB_Exposed = False
  84. Option Explicit
  85. Const INFO11 = " In this example, the purpose is to associate actors (Transparent blue nodes) to task items (yellow nodes). "
  86. Const INFO12 = " You can't change the process diagram. You can only move and resize nodes or stretch links. This limitation is added here in order to demonstrate how easy it is to customize your application."
  87. Const INFO13 = " Therefore, you may create new actor node or change actor names by double-clicking over actor node and you may also create links between actor nodes and task nodes (Ex.: Jane - Order Entry). A dialog box is displayed when The DBLCLICK event is received."
  88. Const INFO14 = " Note that when mouse is over a sizing square, the mouse pointer is changing, depending on its position. (See PointedArea property in the help file)"
  89. Const INFO21 = " Double-click on an item (node or link) and you'll be able to change the properties of this item. "
  90. Const INFO22 = " The long flat node (which symbolizes the local network) owns 5 little nodes implementing stubs. INTERNET node own all nodes inside itself (same with the INTRANET node). "
  91. Const INFO23 = " See Owner property in order to know how to create ownership between nodes. "
  92. Const INFO31 = " Here, you have a way to combine the node and link add into a single step. "
  93. Const INFO32 = " You bring the mouse cursor into the handle at the center of the selected node, press the left button, move the mouse where you want but not over a node. Then you release the left button and you'll see that a node and a link are created together."
  94. Const INFO33 = " Note that there is a displayed grid (see ShowGrid property)."
  95. Const INFO34 = " Note also that when you create a node with the mouse, there is a mimimal node size (See AddNode event in the help file to see how to do that)."
  96. Const INFO35 = " Note that when mouse is over a sizing square, the mouse pointer is changing, depending on its position. (See PointedArea property in the help file)"
  97. Const INFO41 = " In this example, node sizes are adjusted to picture sizes (See property AutoSize). In such a case, text is displayed inside picture."
  98. Const INFO42 = " Therefore, you can't change node size unless you change AutoSize property"
  99. Const INFO43 = " You may change some node properties (text, shape, AutoSize, Alignment) by double-clicking on this node."
  100. Private Sub Command1_Click()
  101.   Unload Me
  102. End Sub
  103. Private Sub Form_Load()
  104.   Dim crlf As String
  105.   crlf = Chr$(13) + Chr$(10)
  106.   Select Case MDI1.ActiveForm.Tag
  107.   Case 1
  108.     Label1.Caption = "Example 1: WorkFlow"
  109.     Text1.Text = INFO11 + crlf + INFO12 + crlf + INFO13 + crlf + INFO14
  110.   Case 2
  111.     Label1.Caption = "Example 2: Network"
  112.     Text1.Text = INFO21 + crlf + INFO22 + crlf + INFO23
  113.   Case 3
  114.     Label1.Caption = "Example 3: Diagram"
  115.     Text1.Text = INFO31 + crlf + INFO32 + crlf + INFO33 + crlf + INFO34 + crlf + INFO35
  116.   Case 4
  117.     Label1.Caption = "Example 4: FlowChart"
  118.     Text1.Text = INFO41 + crlf + INFO42 + crlf + INFO43
  119.   End Select
  120. End Sub
  121.